Ultra Gameplayers 101/Ultra Game Players Magazine, No. 101 - September 1997 (Imagine Publishing, Inc.)(1997).iso/pc/new_ugp.dxr/00287_Marquee Class.ls

Text File | 1997-07-10 | 713 b | 35 lines

property display, text, charWidth, index

on new me, params
  set text to getProp(params, #text)
  set display to getProp(params, #displayMember)
  set charWidth to getProp(params, #charWidth)
  set tmpText to EMPTY
  repeat with spcCount = 1 to length(text)
    set tmpText to tmpText & " "
  end repeat
  set text to tmpText & text
  set index to 0
  return me
end

on TurnOn me
  if index < length(text) then
    set index to index + 1
  else
    set index to 1
  end if
  set newText to char index to index + charWidth of text
  set the text of member display to newText
end

on TurnOff me
end

on dispose me
  set the text of member display to " "
  set display to 0
  set text to 0
  set charWidth to 0
end